home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
SHARED.DIR
/
03124_Script_SSVR SpinTo
< prev
next >
Wrap
Text File
|
1996-04-01
|
856b
|
34 lines
on SSVR_SpinToRow destRow
set Row = getgSSVRMovieProp (#Row)
if destRow < Row then set RowDirection = -1
else set RowDirection = 1
if RowDirection = 1 then
repeat with R = Row+1 to DestRow
SSVR_OffsetRowCol 1, 0
updatestage
end repeat
else -- RowDirection = -1
repeat with R = Row-1 down to DestRow
SSVR_OffsetRowCol -1, 0
updatestage
end repeat
end if
end
on SSVR_SpinToCol destCol
set Col = getgSSVRMovieProp (#Col)
if destCol < Col then set ColDirection = -1
else set ColDirection = 1
if ColDirection = 1 then
repeat with C = Col+1 to DestCol
SSVR_OffsetRowCol 0, 1
updatestage
end repeat
else -- ColDirection = -1
repeat with C = Col-1 down to DestCol
SSVR_OffsetRowCol 0, -1
updatestage
end repeat
end if
end